home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 20 / 020.d81 / scrambler demo1 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  56 lines
  1. 0 poke53281,0
  2. 1 ifl=0thenl=1:load"scramble.49152",8,1
  3. 1010 rem scrambler / unscrambler
  4. 1020 :
  5. 1021 rem call scrambler/unscrambler
  6. 1022 rem routine with:
  7. 1023 rem  sys 49152,0,k$,t$ (encode)
  8. 1024 rem  sys 49152,1,k$,t$ (decode)
  9. 1025 rem k$=keyword  t$=text string
  10. 1026 :
  11. 1030 poke53272,23
  12. 1040 dimtext$(20),key$(10)
  13. 1050 forx=1to10:readkey$(x):next
  14. 1060 forx=1to20:readtext$(x):next
  15. 1070 print"[147][211][195][210][193][205][194][204][197][210]"
  16. 1080 forx=1to20:print""text$(x):next:gosub1410
  17. 1090 k=int(rnd(1)*10)+1:key$=key$(k)
  18. 1100 print" [203][197][217][215][207][210][196]: [146]"key$
  19. 1110 forx=1to20
  20. 1120 sys49152,0,key$,text$(x)
  21. 1130 print"[158]"text$(x):next:gosub1410
  22. 1140 print"[158][213][206][211][195][210][193][205][194][204][197][196][146]          "
  23. 1150 forx=1to20
  24. 1160 sys49152,1,key$,text$(x)
  25. 1170 print"[159]"text$(x):next:gosub1410:goto1070
  26. 1180 rem keys
  27. 1190 data dog,cat,elephant,computer,disk drive
  28. 1195 dataapril,automobile,tv,book,key
  29. 1200 rem messages
  30. 1210 data"[212]his[160]is[160]a[160]test.[160][212]his[160]is[160]only[160]a[160]test."
  31. 1220 data"[198]our[160]score[160]and[160]seven[160]years[160]ago..."
  32. 1230 data "[201]f[160][201][160]owned[160][200]ell[160]and[160][212]exas,[160][201]'d[160]rent[160]out"
  33. 1240 data"[212]exas[160]and[160]live[160]in[160][200]ell.[160][160][[208].[200].[160][211]heridan]"
  34. 1250 data"abcdefghijklmnopqrstuvwxyz0123456789"
  35. 1260 data"[195]onductor,[160]when[160]you[160]receive[160]a[160]fare,"
  36. 1270 data"[208]unch[160]in[160]the[160]presence[160]of[160]the[160]passenjare"
  37. 1280 data"[193][160]blue[160]trip[160]slip[160]for[160]an[160]eight-cent[160]fare"
  38. 1290 data"[193][160]buff[160]trip[160]slip[160]for[160]a[160]six-cent[160]fare,"
  39. 1300 data"[193][160]pink[160]trip[160]slip[160]for[160]a[160]five-cent[160]fare,"
  40. 1310 data"[208]unch[160]in[160]thte[160]presence[160]of[160]the[160]passenjare"
  41. 1320 data"[208]unch,[160]brother,[160]punch[160]with[160]care."
  42. 1330 data"white[158]yellowgreen[159]cyan[150]pink"
  43. 1340 data"[206]othing[160]tickles[160]that[160]doesn't[160]pinch."
  44. 1350 data"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][[205]ontaigne]"
  45. 1360 data"[193]lways[160]do[160]right.[160][160][212]hat[160]will[160]gratify"
  46. 1370 data"some[160]people,[160]and[160]astonish[160]the[160]rest."
  47. 1380 data"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][[205]ark[160][212]wain]"
  48. 1390 data"[206]o[160]piety[160]can[160]delay[160]the[160]wrinkles[160][[200]orace]"
  49. 1400 data"###[160][197]nd[160]of[160][212]ransmission[160]###"
  50. 1410 print"[208]ress [211][208][193][195][197][146] [194][193][210][146] to continue  [[209]=[209]uit]"
  51. 1420 poke198,0:wait198,1:geta$:ifa$<>" "anda$<>"q"then1420
  52. 1425 ifa$="q"then60000
  53. 1430 return
  54. 60000 print"[147]load"chr$(34)"scrambler"chr$(34)",8":print"run"
  55. 60002 poke631,13:poke632,13:poke198,2:        end
  56.